Appendix E 



' ***** LCD PANEL ***** 
' PIC16F819 

** SET UP BASIC ENVIRONMENT 

DEFINE CHAR_PACING 1000 

' PORTA. 0 - CURRENT SENSE 

» PORTA. 1 • POT 

1 PORTA. 2 « THERMISTOR 

' PORTA. 3 - VOLTAGE SENSE 

' PORTA. 4 = 

• PORTA. 5 » 

1 PORTB.O = 
' PORTB.l « 
' PORTB.2 - NPN 

1 PORTB.3 - FORMERLY NPN 
' PORTB.4 - PNP 

' PORTB.5 - 
' PORTB.6 = 
r PORTB.7 = 

********************************** 



' * ENVIRONMENT 
» * 



DEFINE CHAR_PACING 1000 



*********************************** 
» * 

» * 
» * 



VARIABLES 



N 

X 
v 

Z 



VAR 
VAR 
VAR 
VAR 



BYTE 
BYTE 
BYTE 
BYTE 



X2 


VAR 


WORD 


Y2 


VAR 


WORD 


MISCF 


VAR 


BYTE 


LCNT 


VAR 


BYTE 


VOLTS 


VAR 


WORD 


VOUT 


VAR 


WORD 


CURRENT 


VAR 


WORD 


AMP 


VAR 


WORD 


TEMP 


VAR 


WORD 


VIDLE 


VAR 


WORD 


VMAX 


VAR 


WORD 


POTBUF 


VAR 


WORD 


ACNI 


VAR 


BYTE 


ALOOP 


VAR 


BYTE 


ELOOP 


VAR 


BYTE 


PVOLT 


VAR 


WORD 


OTIME 


VAR 


WORD 


BUCK 


VAR 


BYTE 



BANK0 



BANK0 



ssave VAR BYTE BANK0 SYSTEM 

psave VAR BYTE BANK0 SYSTEM 

woavc VAR BYTE $20 SYSTEM 

wsavel VAR BYTE $A0 SYSTEM 



